home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 39 / Amiga Format CD39 (1999-04-13)(Future Publishing)(GB)[!][issue 1999-05].iso / -seriously_amiga- / wb / selector / prefs < prev    next >
Text File  |  1999-03-02  |  2KB  |  84 lines
  1. unsetenv rr
  2. unsetenv gg
  3. unsetenv bb
  4.  
  5. if "$selprefrunning" EQ "Yes"
  6.     selector /pref/running.sel
  7.     quit
  8. endif
  9.  
  10. if not exists envarc:selector.settings
  11.     echo >envarc:selector.settings " "
  12. endif
  13.  
  14. if not exists env:selector.settings
  15.     copy >nil: envarc:selector.settings env:
  16. endif
  17.  
  18. setenv opa ""
  19. tools/getline env:selector.settings opa " font "
  20. tools/chopword opa epa
  21. if not "$epa" EQ ""
  22.     delete >nil: env:selector.defaultfont
  23. endif
  24.  
  25. setenv opa ""
  26. tools/getline envarc:selector.settings opa " font "
  27. tools/chopword opa epa
  28. if not "$epa" EQ ""
  29.     delete >nil: envarc:selector.defaultfont
  30. endif
  31.  
  32.  
  33.  
  34.  
  35. if exists env:Selector.DefaultFont
  36.     setenv opa "font "
  37.     type >>env:opa env:Selector.DefaultFont
  38.     tools/changeline env:selector.settings opa " font "
  39.     delete >nil: env:Selector.DefaultFont
  40. endif
  41.  
  42. if exists envarc:Selector.DefaultFont
  43.     setenv opa "font "
  44.     type >>env:opa envarc:Selector.DefaultFont
  45.     tools/changeline envarc:selector.settings opa " font "
  46.     delete >nil: envarc:Selector.DefaultFont
  47. endif
  48.  
  49. resident >nil: "`which selector`" pure add
  50.  
  51. cd tools
  52.  
  53.  
  54. getline env:selector.settings opa " colour "
  55. chopword opa epa
  56. chopword opa fg
  57. chopword opa bg
  58.  
  59. if not "$epa" EQ ""
  60.     setenv opa ""
  61.     changeline env:selector.settings opa " color "
  62.     
  63.     setenv opa "textcol $fg $bg"
  64.     changeline env:selector.settings opa " textcol "
  65.  
  66.     setenv opa "buttoncol $fg $bg"
  67.     changeline env:selector.settings opa " buttoncol "    
  68. endif
  69.  
  70. setenv selprefrunning yes
  71.  
  72. setenv sj ""
  73. setenv js OFF
  74.  
  75. selector /pref/prefs.sel
  76.  
  77. unsetenv selprefrunning
  78.  
  79.  
  80. unsetenv opa
  81. unsetenv epa
  82. unsetenv fg
  83. unsetenv bg
  84.